home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / arug / arug 29 / r2 < prev    next >
Text File  |  1994-01-27  |  7KB  |  192 lines
  1. REM+++++ antiv ++++
  2. pat$="ram:":hh$="0123456789abcdef"
  3. cksu=0:PRINT "attendere"
  4. OPEN pat$+"Guard" FOR OUTPUT AS #1
  5. READ dati$
  6. WHILE dati$<>"#"
  7.   FOR i=0 TO 3
  8.   word$=MID$(dati$,i*2+1,2)
  9.   hd%=0
  10.    FOR j=1 TO 2
  11.    hd%=hd%+(INSTR(hh$,MID$(word$,j,1))-1)*16^(2-j)
  12.    NEXT j
  13.    PRINT #1,CHR$(hd%);
  14.    cksu=cksu+hd%
  15.    NEXT i
  16.   READ dati$
  17.   WEND
  18.   CLOSE 1
  19.   IF cksu<>186476& THEN 
  20.   PRINT "NON OK " 
  21.   KILL path$+"guard"
  22.   END
  23.  ELSE
  24.  PRINT "fine  OK "
  25.  END
  26.  END IF
  27.  DATA 000003f3,00000000,00000002,00000000
  28.  DATA 00000001,00000255,00000001,000003e9
  29.  DATA 00000255,2c790000,0004246e,012c201a
  30.  DATA 673a6e08,0880001f,244060f2,224041fa
  31.  DATA 038c2269,000eb308,66e44a28,ffff66f6
  32.  DATA 224041fa,037e2269,0012b308,66d04a28
  33.  DATA ffff66f6,45fa036c,60000166,203c0021
  34.  DATA 00c0b0b9,00fc0010,6700000a,45fa0194
  35.  DATA 6000014e,41faff9e,7000223c,00000950
  36.  DATA e2495341,d0586404,06400001,51c9fff6
  37.  DATA 46406700,000a45fa,01a36000,0124203c
  38.  DATA 000006b6,06800000,0828223c,00010000
  39.  DATA 4eaeff3a,4a806600,000a45fa,01b96000
  40.  DATA 01002200,224041fa,02da203c,000005c2
  41.  DATA e4885340,22d851c8,fffc2449,41f900fe
  42.  DATA 88c0203c,00000209,22d851c8,fffc41fa
  43.  DATA 01be4a61,203c0000,00f4e288,534032d8
  44.  DATA 51c8fffc,24010682,0000001a,26010683
  45.  DATA 00000020,28010684,000000b8,2a0a0685
  46.  DATA 00000016,20412141,00022149,00062142
  47.  DATA 000e2143,00122145,00162044,2143000a
  48.  DATA 21410010,93c12149,00142141,0018357c
  49.  DATA 4eb90168,2544016a,06aa0000,0020016a
  50.  DATA 357c4e71,016e202e,02224a80,67000004
  51.  
  52.  DATA 20802d48,0222202e,02264a80,6700000a
  53.  DATA 08c0001f,2140001c,2d480226,06ae0000
  54.  DATA 00180226,4eaefd9c,2d40022a,522e0127
  55.  DATA 49f900df,f000303c,7fff3940,009a3940
  56.  DATA 009c3940,00964eae,ff6a4ef9,00fc00d2
  57.  DATA 43fa0034,70214eae,fdd84a80,67000024
  58.  DATA 2c404eae,ffc42200,240a4a1a,66fc260a
  59.  DATA 96824eae,ffd0224e,2c790000,00044eae
  60.  DATA fe624e75,ecb3646f,732e6c69,62726172
  61.  DATA 79005175,6573746f,206e6f6e,20652720
  62.  DATA 696c204b,69636b73,74617274,20676975
  63.  DATA 73746f20,2872656c,65617365,20312e32
  64.  DATA 2f763333,2e313830,290a0047,75617264
  65.  DATA 69616e20,65272073,7461746f,2064616e
  66.  DATA 6e656767,6961746f,2e205072,6f637572
  67.  DATA 61746920,756e2761,6c747261,20636f70
  68.  DATA 69612e0a,004e6f6e,20632765,27206d65
  69.  DATA 6d6f7269,61203f3f,3f212028,486f2062
  70.  DATA 69736f67,6e6f2064,6920736f,6c692033
  71.  DATA 204b6279,74657320,2121290a,00000001
  72.  
  73.  DATA 0510517a,3e000000,000e1800,00006300
  74.  DATA 00000006,00000000,c03187c3,b876387c
  75.  DATA 3f00c731,8061ccce,18063180,c33183e1
  76.  DATA 8cc6183e,31806331,8c6180c6,18c63180
  77.  DATA 3f1ec7b3,c07b3c7b,31800000,00000000
  78.  DATA 00000000,00000000,00000000,00000000
  79.  DATA 00001801,80000000,00000000,38038000
  80.  DATA 00000000,030c1801,80000000,0000030c
  81.  DATA 18018000,00000000,01981801,80000000
  82.  DATA 000000f0,18618000,00000000,00607e67
  83.  DATA e0000000,00020507,4d8d7c00,00000000
  84.  DATA 00000000,825ef043,de97bdcf,07bdba52
  85.  DATA 904212d4,a5290421,a21ef043,92b7bd29
  86.  DATA 0739ba12,90421294,a9290421,821ef07b
  87.  DATA de94a5cf,043d7c00,00000000,00000000
  88.  DATA ffff4afc,00000000,00000000,012210c4
  89.  DATA 00000000,00000000,00000000,73747261
  90.  DATA 70009b33,336d4775,61726469,616e2076
  91.  DATA 312e3120,9b33316d,436f7079,72696768
  92.  DATA 7420a920,31393838,20627920,4c656f6e
  93.  DATA 6172646f,20466569,0a766961,20412e20
  94.  
  95.  DATA 46617661,20362c20,32303132,35204d69
  96.  DATA 6c616e6f,2c204974,616c792e,0a436f6d
  97.  DATA 6d656e74,7320616e,6420636f,6e747269
  98.  DATA 62757469,6f6e7320,77656c63,6f6d6564
  99.  DATA 219b333b,33336d20,2e2e2e54,68616e6b
  100.  DATA 73219b30,3b33316d,0a000000,00000000
  101.  DATA 00001000,00000000,00010000,00000000
  102.  DATA 00000000,00000000,0000204c,d0fc000c
  103.  DATA 43fa02f6,7208b388,66000020,51c9fff8
  104.  DATA 43ed002c,4eac000c,33fc0fff,00dff180
  105.  DATA 33fc0fff,00dff182,4e7548e7,203043fa
  106.  DATA 02f07000,4eaefdd8,4a806700,02a82440
  107.  DATA 203c0000,04da223c,00010000,4eaeff3a
  108.  DATA 4a806700,028a2640,224041fa,02d6223c
  109.  DATA 00000088,12d851c9,fffc204c,d0fc0004
  110.  DATA 743e723b,12fc0000,12fc0014,12c21018
  111.  
  112.  DATA 0c000020,6b000012,0c00007f,6a00000a
  113.  DATA 12c051c9,ffea6008,12fc002e,51c9ffe0
  114.  DATA 12fc0000,50420c42,00c66a00,000a12fc
  115.  DATA 00ff6000,ffbe12bc,0000204b,323c00c8
  116.  DATA 42802c4a,4eaeffa6,2c790000,00042400
  117.  DATA 203c0000,04da224b,4eaeff2e,4a826700
  118.  DATA 0126203c,00000120,223c0001,00004eae
  119.  DATA ff3a4a80,670001e8,22402640,204e203c
  120.  DATA 00000044,22d851c8,fffc22ee,022222ee
  121.  DATA 022622ee,022a48e7,2030242f,000c246f
  122.  DATA 0010266f,001443ed,002c4eac,000c2f4b
  123.  DATA 00142f4a,00102f42,000c4cdf,0c0448e7
  124.  DATA 8080204e,224b203c,00000044,b3886600
  125.  DATA 005051c8,fff82019,b0ae0222,66000042
  126.  DATA 2019b0ae,02266600,00382019,b0ae022a
  127.  DATA 6600002e,203c0000,0120224b,4eaeff2e
  128.  DATA 224a4eae,fe624cdf,01014cdf,0c0433fc
  129.  DATA 0f0000df,f18033fc,0f0000df,f1824e75
  130.  DATA 428041fa,02b37236,2c4a4eae,ffa62c79
  131.  DATA 00000004,4a806700,ffbc4eae,ff7c33fc
  132.  DATA 400000df,f09a33fc,020000df,f096204b
  133.  DATA 22790000,0004203c,00000044,22d851c8
  134.  DATA fffc2d58,02222d58,02262d58,022a33fc
  135.  
  136.  DATA 820000df,f09633fc,c00000df,f09a4eae
  137.  DATA ff766000,ff704280,41fa01b1,72282c4a
  138.  DATA 4eaeffa6,2c790000,00044a80,670000a0
  139.  DATA 43ed002c,337c000f,001c4eae,fe384aa9
  140.  DATA 00206700,00204280,41fa01d2,72282c4a
  141.  DATA 4eaeffa6,2c790000,00044a80,6600ffd2
  142.  DATA 6000006c,204c43fa,0094720c,20d951c9
  143.  DATA fffc323c,00f220fc,00000000,51c9fff8
  144.  DATA 204cd0fc,0008323c,00fd7000,d0986402
  145.  DATA 528051c9,fff8d094,64025280,46802940
  146.  DATA 000443ed,002c234c,0028237c,00000400
  147.  DATA 0024237c,00000000,002c337c,0003001c
  148.  DATA 4eaefe38,337c0004,001c4eae,fe38224a
  149.  DATA 4eaefe62,4cdf0c04,6100002e,33fc0fff
  150.  DATA 00dff180,33fc0fff,00dff182,4e75224a
  151.  DATA 4eaefe62,4cdf0c04,70ff4e75,444f5300
  152.  DATA 00000000,00000370,43fa0018,4eaeffa0
  153.  DATA 4a80670a,20402068,00167000,4e7570ff
  154.  DATA 60fa646f,732e6c69,62726172,79000000
  155.  DATA 696e7475,6974696f,6e2e6c69,62726172
  156.  
  157.  DATA 79000046,0f415454,454e5a49,4f4e4520
  158.  DATA 21212051,55455354,4f20424f,4f54424c
  159.  DATA 4f434b20,4e4f4e20,45272053,54414e44
  160.  DATA 41524420,21210001,00461c50,6f737369
  161.  DATA 62696c65,20564952,55532021,21202044
  162.  DATA 65766f20,70617373,6172676c,6920696c
  163.  DATA 20636f6e,74726f6c,6c6f203f,0001001e
  164.  DATA 2a4c4546,54203d20,53490001,01ff2a52
  165.  DATA 49474854,203d204e,4f000100,500f536f
  166.  DATA 73746974,75697363,6f207175,6573746f
  167.  DATA 20424f4f,54424c4f,434b2063,6f6e2075
  168.  DATA 6e6f2073,74616e64,61726420,3f000100
  169.  DATA 1e1e4c45,4654203d,20534900,0101ff1e
  170.  DATA 52494748,54203d20,4e4f0000,006e0f49
  171.  DATA 6c206469,73636f20,65272070,726f7465
  172.  DATA 74746f2e,20202020,4465766f,20726970
  173.  DATA 726f7661,7265203f,0001001e,1e4c4546
  174.  DATA 54203d20,53490001,01ff1e52,49474854
  175.  DATA 203d204e,4f000000,460f4154,54454e5a
  176.  DATA 494f4e45,20212120,45786563,42617365
  177.  DATA 20616c74,65726174,6f206475,72616e74
  178.  DATA 6520696c,20626f6f,74202100,0100461c
  179.  DATA 506f7373,6962696c,65205649,52555320
  180.  DATA 21212020,52697072,69737469,6e6f2076
  181.  DATA 65636368,696f2045,78656342,61736520
  182.  DATA 3f000100,1e2a4c45,4654203d,20534900
  183.  DATA 0101ff2a,52494748,54203d20,4e4f0000
  184.  DATA 00ffffff,47a0fffc,000003ec,00000000
  185.  DATA 000003f2,000003eb,00000001,000003f2
  186.  DATA #
  187.  
  188.    
  189.    
  190.    
  191.    
  192.